home *** CD-ROM | disk | FTP | other *** search
- object DemoForm: TDemoForm
- Left = 187
- Top = 100
- Width = 483
- Height = 396
- Caption = 'Mail eXtension DEMO for DELPHI'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 477
- Height = 49
- Align = alTop
- TabOrder = 1
- object btnScan: TButton
- Left = 104
- Top = 8
- Width = 89
- Height = 33
- Hint = 'Scan your Inbox'
- Caption = 'Scan Inbox'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = btnScanClick
- end
- object btnRecipient: TButton
- Left = 200
- Top = 8
- Width = 81
- Height = 33
- Hint = 'Show Recipients'
- Caption = 'Recipients'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = btnRecipientClick
- end
- object btnFiles: TButton
- Left = 288
- Top = 8
- Width = 81
- Height = 33
- Hint = 'Show File attachments'
- Caption = 'Attachment'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = btnFilesClick
- end
- object btnMessage: TButton
- Left = 376
- Top = 8
- Width = 81
- Height = 33
- Hint = 'Message'
- Caption = 'Message'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = btnMessageClick
- end
- object btnSignOn: TButton
- Left = 8
- Top = 8
- Width = 81
- Height = 33
- Hint = 'Sign On your Mail System'
- Caption = 'Sign On'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = btnSignOnClick
- end
- end
- object Tab: TTabbedNotebook
- Left = 16
- Top = 64
- Width = 449
- Height = 257
- TabsPerRow = 4
- TabFont.Color = clBlack
- TabFont.Height = -11
- TabFont.Name = 'Arial'
- TabFont.Style = []
- TabOrder = 0
- object TTabPage
- Left = 5
- Top = 27
- Caption = 'Inbox'
- object Label1: TLabel
- Left = 16
- Top = 192
- Width = 131
- Height = 16
- Caption = 'Total Inbox messages:'
- end
- object szCount: TLabel
- Left = 160
- Top = 192
- Width = 137
- Height = 16
- AutoSize = False
- end
- object Outline1: TOutline
- Left = 8
- Top = 16
- Width = 417
- Height = 169
- ItemHeight = 16
- TabOrder = 0
- OnDblClick = Outline1DblClick
- ItemSeparator = '\'
- end
- end
- object TTabPage
- Left = 5
- Top = 27
- Caption = 'Recipients'
- object Label6: TLabel
- Left = 16
- Top = 16
- Width = 90
- Height = 16
- Caption = 'Resolve Names'
- end
- object Label7: TLabel
- Left = 16
- Top = 56
- Width = 83
- Height = 16
- Caption = 'Recipient List:'
- end
- object ReciGrid: TStringGrid
- Left = 16
- Top = 80
- Width = 313
- Height = 137
- Hint = 'Message Recipient List'
- ColCount = 2
- DefaultColWidth = 150
- DefaultRowHeight = 20
- FixedRows = 0
- Options = [goFixedVertLine, goFixedHorzLine, goHorzLine, goRangeSelect, goColSizing, goTabs, goThumbTracking]
- ParentShowHint = False
- RowCount = 1
- ShowHint = True
- TabOrder = 0
- OnDblClick = ReciGridDblClick
- RowHeights = (
- 24)
- end
- object szResolve: TEdit
- Left = 120
- Top = 16
- Width = 209
- Height = 24
- Hint = 'Enter recipient names to resolve'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object BtnResolve: TButton
- Left = 344
- Top = 8
- Width = 89
- Height = 57
- Hint = 'Resolve Recipient Names'
- Caption = 'Resolve'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BtnResolveClick
- end
- object BtnAdd: TButton
- Left = 344
- Top = 80
- Width = 89
- Height = 57
- Hint = 'Add Resolved recipient address'
- Caption = 'Add Names'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = BtnAddClick
- end
- object btnAddress: TButton
- Left = 344
- Top = 152
- Width = 89
- Height = 57
- Hint = 'Display Address Dialog'
- Caption = 'Address Dlg'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = btnAddressClick
- end
- end
- object TTabPage
- Left = 5
- Top = 27
- Caption = 'Attachments'
- object FileGrid: TStringGrid
- Left = 16
- Top = 8
- Width = 409
- Height = 201
- Hint = 'Message Attachment List'
- ColCount = 2
- DefaultColWidth = 200
- FixedCols = 0
- FixedRows = 0
- Options = [goFixedVertLine, goHorzLine, goRangeSelect]
- ParentShowHint = False
- RowCount = 1
- ShowHint = True
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 27
- Caption = 'Message'
- object Label2: TLabel
- Left = 16
- Top = 8
- Width = 44
- Height = 16
- Caption = 'Subject'
- end
- object Label3: TLabel
- Left = 16
- Top = 40
- Width = 34
- Height = 16
- Caption = 'From:'
- end
- object Label4: TLabel
- Left = 16
- Top = 72
- Width = 88
- Height = 16
- Caption = 'Time Received:'
- end
- object Label5: TLabel
- Left = 16
- Top = 104
- Width = 59
- Height = 16
- Caption = 'Note Part:'
- end
- object szNotePart: TMemo
- Left = 16
- Top = 128
- Width = 313
- Height = 89
- Hint = 'Message Note Part'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object szSubject: TEdit
- Left = 88
- Top = 8
- Width = 241
- Height = 24
- Hint = 'Message Subject'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object szFrom: TEdit
- Left = 88
- Top = 40
- Width = 241
- Height = 24
- Hint = 'Message Sender'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object szTime: TEdit
- Left = 104
- Top = 72
- Width = 225
- Height = 24
- Hint = 'Time Received'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object btnReply: TButton
- Left = 336
- Top = 8
- Width = 97
- Height = 57
- Hint = 'Reply Current Message'
- Caption = 'Reply'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = btnReplyClick
- end
- object btnForward: TButton
- Left = 336
- Top = 80
- Width = 97
- Height = 57
- Hint = 'Forward Current Message'
- Caption = 'Forward'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = btnForwardClick
- end
- object btnSend: TButton
- Left = 336
- Top = 152
- Width = 97
- Height = 57
- Hint = 'Send a new Message'
- Caption = 'New Msg'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = btnSendClick
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 341
- Width = 477
- Height = 30
- Align = alBottom
- TabOrder = 2
- object szStatus: TLabel
- Left = 8
- Top = 8
- Width = 425
- Height = 16
- AutoSize = False
- end
- end
- object MXForm1: TMXForm
- Left = 224
- Top = 48
- Width = 213
- Height = 18
- MXFormName = 'FormTag3'
- end
- object MXSession1: TMXSession
- Left = 0
- Top = 308
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- end
- object MXMessage1: TMXMessage
- Left = 0
- Top = 268
- Width = 30
- Height = 30
- DisplayErrors = False
- Custom = 'Push ... for Custom Properties'
- BindString = 'MXSession1'
- MarkAsRead = False
- TimeFormat = '%m/%d/%y'
- end
- object MXMessage2: TMXMessage
- Left = 200
- Top = 308
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- BindString = 'MXSession1'
- SuppressAttach = False
- TimeFormat = '%m/%d/%y'
- end
- object MXRecipient1: TMXRecipient
- Left = 244
- Top = 308
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- BindString = 'MXMessage2'
- end
- object MXFile1: TMXFile
- Left = 284
- Top = 308
- Width = 30
- Height = 30
- DisplayErrors = False
- Custom = 'Push ... for Custom Properties'
- BindString = 'MXMessage2'
- end
- end
-